home *** CD-ROM | disk | FTP | other *** search
/ The Complete Utilities To…ka 501 Killer Utilities! / 501 Killer Utilities! (Macworld July 1995).cdr / Programming / fantasm 2.1 unreg / Fantasm guide / Beginners guide MS word / GUIDE EXAMPLES / EXAMPLE6.S < prev    next >
Encoding:
Text File  |  1994-07-17  |  370 b   |  11 lines  |  [TEXT/????]
  1. ****************************************************************
  2. *XAMPLE 6 USES THE OPERATING SYSTEM TO PRODUCE A BEEP          *
  3.  ***************************************************************
  4. sysbeep:    equ    $a9c8    *OS CALL FOR BEEP
  5.  
  6. START:    MOVE.W    #1,-(SP)    *DURATION        
  7.     DC.W    SYSBEEP    *DO BEEP
  8.     RTS        *BYE
  9. **************************END OF EXAMPLE 6***********************
  10.  
  11.